home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Turnbull China Bikeride
/
Turnbull China Bikeride - Disc 2.iso
/
STUTTGART
/
FROMUTS
/
RISCBBS
/
!RiscBBS
/
BBS
/
ANSI
/
Tetris
< prev
next >
Wrap
Text File
|
1991-12-29
|
862b
|
25 lines
{report `Tetris game`}
{attr 4 3} -- Online ANSI Tetris -- {attr 0 2} {_time} {bg 4 cll attr 0 2}
{if ANSI=0 goto +noansi}{if BAUD<2400 goto +badbaud}{if LINES<24 goto +toosmall}
Controls : {attr 4 6} Z {attr 0 2} moves figure left, {attr 4 6} X {attr 0 2} moves figure right.
{attr 4 6} [ENTER] {attr 0 2} rotates figure, {attr 4 6} / {attr 0 2} drops figure.
{fg 3}Use CTRL-X at any time to abort the game!
{fg 1}Press <ENTER> to start game... {label getenter getkey V1 if V1<>13 goto getenter}
{runtask `<RiscBBS$Dir>.SubTasks.!Tetris HANDLE`}
{wait getkey V0 attr 0 7 cls eof}
{label noansi}
I'm sorry, but to play Tetris you really need ANSI graphics...
{enter}
{eof label badbaud}
I'm sorry, but below 2400 baud Tetris isn't playable...
{enter}
{eof label toosmall}
I'm sorry, but you need at least 24 lines on your display...
{enter}